Namespace DataTypes
    Public Class Photo
        Private _id As String
        Private _albumid As String
        Private _caption As String

        Public Sub New(ByVal id As String, ByVal albumid As String, ByVal caption As String)
            MyBase.New()
            _id = id
            _albumid = albumid
            _caption = caption
        End Sub

        Public ReadOnly Property PhotoID() As String
            Get
                Return _id
            End Get
        End Property

        Public ReadOnly Property AlbumID() As String
            Get
                Return _albumid
            End Get
        End Property

        Public ReadOnly Property Caption() As String
            Get
                Return _caption
            End Get
        End Property
    End Class
End Namespace